home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS038.dsk / CREATE CHARGEX.bas < prev    next >
BASIC Source File  |  2012-02-16  |  971b  |  38 lines
  1. 100  REM  CREATE CHARGEX
  2. 150  HOME : PRINT "TYPE IN STOP WHEN FINISHED ENTERING DATA."
  3. 160  POKE 34,2
  4. 200  DIM NAMES$(2000)
  5. 205  DIM TITLES$(8)
  6. 206  GOSUB 1300
  7. 210  FOR CI = 1 TO 2000
  8. 212  FOR CP = 0 TO 7
  9. 214  PRINT TITLES$(CP +1)
  10. 216  INPUT NAMES$(CI +CP)
  11. 218  PRINT CI +CP: PRINT 
  12. 220  IF  LEFT$(NAMES$(CI +CP),4) = "STOP"  THEN 400
  13. 230  NEXT CP
  14. 240 CI = CI +7
  15. 290  NEXT CI
  16. 300  PRINT " "
  17. 400  INPUT "GIVE YOUR FILE A NAME  ";A$
  18. 450 D$ =  CHR$(4): REM  CTRL-D
  19. 500  PRINT D$;"OPEN";A$
  20. 600  PRINT D$;"DELETE";A$
  21. 700  PRINT D$;"OPEN";A$
  22. 800  PRINT D$;"WRITE";A$
  23. 900 CJ = (CI -1)
  24. 1000  FOR CK = 1 TO CJ
  25. 1100  PRINT NAMES$(CK)
  26. 1200  NEXT CK
  27. 1250  GOTO 20000
  28. 1300 TITLES$(1) = "DAY OF MONTH"
  29. 1400 TITLES$(2) = "MONTH"
  30. 1500 TITLES$(3) = "YEAR"
  31. 1600 TITLES$(4) = "CODE NUMBER"
  32. 1700 TITLES$(5) = "DESCRIPTION"
  33. 1800 TITLES$(6) = "DEBIT"
  34. 1900 TITLES$(7) = "CREDIT"
  35. 2000 TITLES$(8) = "COMMENT"
  36. 2100  RETURN 
  37. 20000  PRINT D$;"CLOSE";A$
  38. 21000  PRINT "THE NUMBER OF FILES    ";(CK -1)